﻿Public Class Informes
    Inherits System.Web.UI.Page
    Shared ImgFondo As Image



    Private Sub MuestroDatos_del_RS(ByVal Titulo_De_char1 As String)
        'FG.SacaCartelDeAViso(lbl_MesjeDEl_grafico)
        '' P_grillaYchart.Visible = False
        'CboTipoGrafico.Visible = False
        ''
        ''---vacio los datos
        'Chart1.DataBind()
        'Gv_datos.DataBind()




        ''------me fijo si hay datos , si hay muestro todos

        'If Rs.RecordCount = 0 Then
        '    FG.MuestraCartel("No se encontraron resultados", lbl_MesjeDEl_grafico)
        '    Exit Sub
        'End If

        'CboTipoGrafico.Visible = True

        ''pongo el panel visible 
        'P_grillaYchart.Visible = True


        ''vacio la grilla
        'Gv_datos.DataBind()
        ''-------------

        ''cargo la grilla
        'Gv_datos.DataSource = FG.cargaUnDataTable(Rs)
        'Gv_datos.DataBind()
        ''-------

        '' cargo el 
        'FG.cargaChart(Chart1, Titulo_De_char1, Me.Dev_TipoDegrafico, Rs)


    End Sub


    Private Sub limpiarPaneles()




        'P_Inf_Vacunas.Visible = False



        'Me.pnlCie.Visible = False


        '' panel con la grilla y el chart
        ''  P_grillaYchart.Visible = False
        'CboTipoGrafico.Visible = False
        'Gv_datos.DataBind()
        'Chart1.DataBind()


        'FG.SacaCartelDeAViso(lbl_MesjeDEl_grafico)

    End Sub
    'Private Sub CargaTodosLosCombos()




    '    'panel del cie 
    '    CargaCombosDelfiltroCie()



    'End Sub
    'Private Sub CargaCombosDelfiltroCie()

    '    FG.CargaCombo("TraeClasificacionGeneralCie", CboClasificacionGeneral)
    '    CboClasificacionGeneral.Items.Add("TODAS")
    '    CboClasificacionGeneral.Text = "TODAS"

    '    'cargo el combo por el valor del combo del CboClasificacionGeneral
    '    FG.CargaCombo("TraeSubClasif_CIE_xClasificacionGral", cboSubClasificacion, CboClasificacionGeneral.Text)
    '    cboSubClasificacion.Items.Add("TODOS")
    '    cboSubClasificacion.Text = "TODOS"


    '    'cargo el combo categoria
    '    CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
    '    cboCategoria.Items.Add("TODAS")
    '    cboCategoria.Text = "TODAS"


    'End Sub
    'Protected Sub CboClasificacionGeneral_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CboClasificacionGeneral.SelectedIndexChanged

    '    'cargo el combo por el valor del combo del CboClasificacionGeneral
    '    FG.CargaCombo("TraeSubClasif_CIE_xClasificacionGral", cboSubClasificacion, CboClasificacionGeneral.Text)
    '    cboSubClasificacion.Items.Add("TODOS")
    '    cboSubClasificacion.Text = "TODOS"


    '    'cargo el combo categoria
    '    CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
    '    cboCategoria.Items.Add("TODAS")
    '    cboCategoria.Text = "TODAS"


    'End Sub

    'Protected Sub cboSubClasificacion_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cboSubClasificacion.SelectedIndexChanged

    '    'cargo el combo categoria
    '    CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
    '    cboCategoria.Items.Add("TODAS")
    '    cboCategoria.Text = "TODAS"

    'End Sub

    'Private Function Dev_TipoDegrafico() As Integer

    '    'Seteo tipo de grafico
    '    Dim grafico As FG.TipoGrafico

    '    Select Case (CboTipoGrafico.SelectedValue)
    '        Case "Gráfico de torta"
    '            grafico = TipoGrafico.Torta
    '        Case ("Gráfico de barras")
    '            grafico = TipoGrafico.Barra
    '        Case "Gráfico de área"
    '            grafico = TipoGrafico.Area
    '    End Select


    '    Dev_TipoDegrafico = grafico

    'End Function


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ImgFondo = Page.Master.FindControl("Imag_Fondo")

        If Not Page.IsPostBack Then
            FG.culturaPaginas()
            'seto la imagen de fondo para que no scrolee
            ImgFondo.Height = 300



            '    CargaTodosLosCombos()


        End If




    End Sub





    Protected Sub cboCriterioBusq_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cboCriterioBusq.SelectedIndexChanged
        Dim MI_iframe As Control = Page.FindControl("Iframe_Paginas")
        limpiarPaneles()

        '---seteo el panel contendor de inframe que hace de punte a las paginas de informes 
        pnl_De_PAGINA.Visible = False
        pnl_De_PAGINA.Height = 1000
        '--------------------------------------------------------

        'seteo la imagen de fondo
        ImgFondo.Visible = True
        '-------------------------


        'valido
        If cboCriterioBusq.Text = "" Then
            Exit Sub

        End If
        '--------------------


        'si paso la validacion pongo el panel visible
        pnl_De_PAGINA.Visible = True

        'saco la imagen de fondo
        ImgFondo.Visible = False
        '-------------------------

        Select Case Me.cboCriterioBusq.Text

            Case "Porcentaje de pacientes vacunados"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_vacunacion.aspx")
                pnl_De_PAGINA.Height = 900


            Case "Natalidad"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_natalidad.aspx")
                Iframe_Paginas.Attributes.Add("height", "800 px")
                pnl_De_PAGINA.Height = 700


            Case "Nacimientos prematuros"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_NaciMientoPrematuros.aspx")
                pnl_De_PAGINA.Height = 700

            Case "Tasa de bajo peso al nacer"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_bajoPesoAlnacer.aspx")
                pnl_De_PAGINA.Height = 600


            Case "Nacimientos"
                Iframe_Paginas.Attributes.Add("src", "informes/inf_Nacimientos.aspx")
                pnl_De_PAGINA.Height = 500


            Case "Tasa bruta de mortalidad general"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_MortalidadBruta.aspx")
                pnl_De_PAGINA.Height = 650

            Case "Tasa de mortalidad infantil"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_mortalidad_infantil.aspx")
                pnl_De_PAGINA.Height = 630


            Case "Tasa de especialidades"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_especialidadesVisitas.aspx")
                pnl_De_PAGINA.Height = 700

            Case "Enfermedades (cie Nº10)"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_EnfermedadesxCie10.aspx")
                pnl_De_PAGINA.Height = 700

            Case "Tasa de defuncion (cie Nº10)"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_CausadecesosXanio.aspx")
                pnl_De_PAGINA.Height = 800


            Case "Tasa de poblacion conocida"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_PoblacionRegistradaXedadxSexo.aspx")
                pnl_De_PAGINA.Height = 650


            Case "Tasa de natalidad por situacion conyugal"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_Natalidad_madreSolteras.aspx")
                pnl_De_PAGINA.Height = 700


            Case "Tasa de rendimiento de la instituciones"
                Iframe_Paginas.Attributes.Add("src", "informes/Inf_RendimientoInstituciones.aspx")
                pnl_De_PAGINA.Height = 580



        End Select



    End Sub
End Class